(side-effect-free-fns): Add "-" and "1-" to the list.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index c7ab880cf6097d8b55dcb4e7147e5814b6f6a3d2..354857e68f2b8caadba11c692926813d91bf2ee9 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -973,7 +973,7 @@
 
 ;;; I wonder if I missed any :-\)
 (let ((side-effect-free-fns
-       '(% * + / /= 1+ < <= = > >= append aref ash assoc assq boundp
+       '(% * + - / /= 1+ 1- < <= = > >= append aref ash assoc assq boundp
         buffer-file-name buffer-local-variables buffer-modified-p
         buffer-substring capitalize car cdr concat coordinates-in-window-p
         copy-marker count-lines documentation downcase elt fboundp featurep